Public Class frmLogin

  Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
    Application.Exit()
  End Sub

  Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click

    If txtUsuario.Text.Trim = "" Then
      MessageBox.Show("Debe ingresar el nombre de usuario", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
      txtUsuario.Focus()
      Exit Sub
    End If

    If txtContraseña.Text.Trim = "" Then
      MessageBox.Show("Debe ingresar la contraseña", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
      txtContraseña.Focus()
      Exit Sub
    End If

    'Intentar establecer la conexión
    Try
      With SQLConn
        'Establecer la cadena de conexión
        .ConnectionString = "Data Source=" & My.Settings.ServidorBD & ";Initial Catalog=" & My.Settings.BaseDatos & ";User ID=" & Me.txtUsuario.Text.Trim & ";Password=" & Me.txtContraseña.Text.Trim

        'Abrir la conexión
        .Open()
      End With
      'Si se logró establecer la conexión, agregar objeto a las propiedades de la Aplicación
      My.Settings.SQLConn = SQLConn

      'Mostrar el formulario principal
      frmPrincipal.Show()
      My.Forms.frmPrincipal.ntiIconoNotificacion.BalloonTipIcon = ToolTipIcon.Info
      My.Forms.frmPrincipal.ntiIconoNotificacion.BalloonTipTitle = "Sales System 1.0"
      My.Forms.frmPrincipal.ntiIconoNotificacion.BalloonTipText = "Bienvenido al Sistema"
      My.Forms.frmPrincipal.ntiIconoNotificacion.ShowBalloonTip(1000)
      frmPrincipal.PnlUsuario.Text = "Usuario: " & txtUsuario.Text.Trim
      Me.Close()
    Catch ex As Exception
      MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      'Cerrar la conexión
      SQLConn.Close()
    End Try
  End Sub

    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
